home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / clipper / mrddem.zip / DATA.PRG < prev    next >
Text File  |  1994-06-29  |  2KB  |  91 lines
  1. External  SIXNSX, DBFCMX
  2. FIELD Info, aMemo, cKey, nKey, Num1, Num2, Num3, Num4
  3.  
  4. FUNCTION BrowData()
  5.  
  6.    IF !FILE("DATA1.DBF")
  7.       Data1Create()
  8.    ELSE
  9.       USE Data1 NEW VIA "DBFCMX" SHARED READONLY
  10.    ENDIF
  11.  
  12.    IF ! FILE("Data2.dbf")
  13.       data2Create()
  14.    ELSE
  15.       USE Data2 NEW VIA "SIXNSX"
  16.    ENDIF
  17.  
  18.    ALTD(6)                                                                     // Summon the workarea list
  19.  
  20.    CLOSE ALL
  21. RETURN(NIL)
  22.  
  23. FUNCTION Data2Create()
  24.    LOCAL nI := 0
  25.  
  26.    LOCAL aDBF2 := { {"Info", "C", 50, 0},;
  27.       {"AMemo", "M", 10, 0 },;
  28.       {"cKey", "C", 5, 0  },;
  29.       {"nKey", "N", 5, 0  }}
  30.  
  31.    LOCAL aInfo := { "Press F1 for brief help on this screen",;
  32.       "Each window has different options",;
  33.       " ",;
  34.       "The last record is blank because it ",;
  35.       "is an EOF record",;
  36.       " ",;
  37.       "You can press RETURN on nearly",;
  38.       "everything here",;
  39.       " ",;
  40.       "Try it, press RETURN on the array",;
  41.       "stored in the SMT file" }
  42.  
  43.    DBCREATE("Data2", aDBF2, "SIXNSX")
  44.  
  45.    USE Data2 NEW VIA "SIXNSX"
  46.  
  47.    FOR nI := 1 TO LEN(aInfo)
  48.       data2->(DBAPPEND())
  49.       data2->Info := aInfo[nI]
  50.       data2->amemo := Ainfo
  51.       data2->cKey := LTRIM(STR(nI))
  52.       data2->nKey := 20 - nI
  53.    NEXT
  54.    data2->(DBCOMMIT())
  55.  
  56.    INDEX ON cKey TAG Index1
  57.    INDEX ON nKey TAG Index2
  58.    Data2->(DBSetOrder(1))
  59.    Data2->(DBGOTOP())
  60.  
  61. RETURN(NIL)
  62.  
  63.  
  64. FUNCTION Data1Create()
  65.    LOCAL nI := 0
  66.  
  67.    LOCAL aDBF1 := { {"Num1", "N", 10, 0},;
  68.       {"Num2", "N", 10, 0},;
  69.       {"Num3", "N", 10, 0},;
  70.       {"Num4", "N", 10, 0} }
  71.  
  72.    DBCREATE("Data1", aDBF1, "DBFCMX")
  73.    USE Data1 NEW VIA "DBFCMX" SHARED
  74.  
  75.    FOR nI := 1 TO 100
  76.       data1->(DBAPPEND())
  77.       data1->Num1 := nI
  78.       data1->Num2 := 100-nI*10
  79.       data1->Num3 := (100-Ni)*.175
  80.       data1->Num4 := 100-nI
  81.    NEXT
  82.  
  83.    data1->(DBCOMMIT())
  84.    INDEX on data1->Num1 TAG num1
  85.    INDEX on data1->Num2 TAG num2
  86.    INDEX on data1->Num3 TAG num3
  87.    INDEX on data1->Num4 TAG num4
  88.    Data1->(DBGOTOP())
  89.  
  90. RETURN(NIL)
  91.